home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 236 / 236.d81 / puzzle page 87 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2004-01-01  |  7.1 KB  |  251 lines
  1. 1 poke55,0:poke56,128:clr
  2. 2 poke53281,0:poke53280,0:printchr$(147)chr$(14)chr$(8);
  3. 3 dv=peek(186):ifdv<8thendv=8
  4. 5 poke53272,29
  5. 6 dim m$(11),r$(4):f=0:ff=0:s=54272:gosub9900
  6. 7 fori=1to4:readr$(i):next
  7. 8 data "[210]ead it           ","[210]un it            ","[195]redits           "
  8. 9 data "[205]ain [205]enu         "
  9. 10 fori=1to8:readm$(i):next
  10. 11 data "[195]rossword             "
  11. 12 data "[208]residential [195]rossword"
  12. 14 data "[204]ogic [208]roblem         "
  13. 15 data "[205]s. [195]rypto            "
  14. 16 data "[212]o and [198]ro            "
  15. 17 data "[200]opscotch             "
  16. 18 data "[205]usical [195]redits       "
  17. 19 data "[204]oadstar              "
  18. 20 tp$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  19. 22 md$="[221][155]                                      [146][221]"
  20. 23 ln$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  21. 24 bt$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  22. 25 goto30
  23. 26 print"[147]"tp$;
  24. 27 fori=1to23:printmd$;:next:printbt$:poke2023,125:poke56295,1
  25. 28 fori=217to242:pokei,peek(i)or128:next:return
  26. 30 gosub26
  27. 32 print"[221][156]           [212]he [208]uzzle [208]age            [146][221]";
  28. 34 println$;
  29. 60 poke214,21:print
  30. 65 println$;
  31. 70 print"[221][154]   [213]se cursor keys/[210][197][212][213][210][206] to select   [146][221]";
  32. 80 gosub28
  33. 100 print"";
  34. 102 printtab(7)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  35. 104 qq$="[221]                        [221]"
  36. 105 fori=1to10:print""qq$:next
  37. 106 printtab(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  38. 107 poke214,5:print
  39. 109 fori=1to10:printtab(9)""m$(i):next
  40. 145 sys52496,6
  41. 146 poke198,0
  42. 150 r=5:m=1:poke214,r:print:printtab(9)"[154]"m$(m):m1=m:r1=r
  43. 155 getk$:ifk$=""then155
  44. 160 ifk$=chr$(13)thengosub9930:goto200
  45. 165 ifk$="[145]"thenm=m-1:r=r-1:ifm<1thenm=8:r=12
  46. 170 ifk$=""thenm=m+1:r=r+1:ifm>8thenm=1:r=5
  47. 175 ifm<>m1thenpoke214,r1:print:printtab(9)""m$(m1):gosub9910
  48. 180 poke214,r:print:printtab(9)"[154]"m$(m)
  49. 182 m1=m:r1=r
  50. 185 goto155
  51. 190 :
  52. 200 ifm=8then11000:remreturnls
  53. 205 ifm=7then13000:rem credits
  54. 220 poke214,10:print
  55. 225 printtab(13)"[153][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  56. 227 q1$="[221]                    [221]"
  57. 229 fori=1to6:printq1$:next
  58. 230 printtab(13)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  59. 232 poke214,12:print
  60. 234 fori=1to4:printtab(15)""r$(i):next
  61. 280 r2=12:m2=1:poke214,r2:print:printtab(15)"[154]"r$(m2):m1=m2:r1=r2
  62. 285 getk$:ifk$=""then285
  63. 290 ifk$=chr$(13)thengosub9930:goto400
  64. 295 ifk$="[145]"thenm2=m2-1:r2=r2-1:ifm2<1thenm2=4:r2=15
  65. 300 ifk$=""thenm2=m2+1:r2=r2+1:ifm2>4thenm2=1:r2=12
  66. 305 ifm2<>m1thenpoke214,r1:print:printtab(15)"[153]"r$(m1):gosub9910
  67. 310 poke214,r2:print:printtab(15)"[154]"r$(m2)
  68. 315 m1=m2:r1=r2
  69. 320 goto285
  70. 325 :
  71. 400 ifm2=4thensys52499,6:gosub28:goto150:rem main menu
  72. 401 :
  73. 402 ifm2=3then500:rem credits
  74. 403 ifm2=1then600:rem instr
  75. 410 ifm2=2andm=1then700
  76. 411 ifm2=2andm=2then700
  77. 413 ifm=3thenf$="coaster 87"
  78. 415 ifm=4thenf$="crypto 87"
  79. 416 ifm=5thenf$="to and fro 87"
  80. 417 ifm=6thenf$="hop 87"
  81. 422 gosub9600:ifm=4then425
  82. 423 ifff<>2thensys57812"scf 87",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  83. 424 ff=2
  84. 425 sys57812f$,8,0:poke780,0:poke781,0:poke782,8:sys65493
  85. 429 ifm<>4thenpoke53272,31
  86. 430 sys2048
  87. 435 sys52499,6:gosub28:poke53272,29:goto150
  88. 440 :
  89. 500 ifm=1thencr$="[194]arbara [200]. [211]chulak"
  90. 505 ifm=2thencr$="[194]arbara [200]. [211]chulak"
  91. 511 ifm=3thencr$="[194]arbara [200]. [211]chulak"
  92. 512 ifm=4thencr$="[194]arbara [200]. [211]chulak"
  93. 515 ifm=5thencr$="[197]d [198]ournier"
  94. 517 ifm=6thencr$="[194]arbara [200]. [211]chulak"
  95. 520 sys52496,7
  96. 525 poke214,16:print:printtab(5)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  97. 527 printtab(5)"[221]      [208]uzzle(s) [194]y      [221]"
  98. 530 printtab(5)qq$
  99. 535 printtab(5)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  100. 540 poke214,18:print:printtab(18-len(cr$)/2)""cr$
  101. 544 t=1
  102. 545 getk$:ifk$<>""then550
  103. 546 t=t+1:ift<100then545
  104. 550 sys52499,7:gosub28:goto285
  105. 555 :
  106. 600 sys52496,7
  107. 605 onmgosub5000,5000,9000,9500,6000,8000
  108. 610 sys52499,7:gosub28:goto280
  109. 625 :
  110. 700 gosub9600
  111. 705 f1$="xword 87"
  112. 714 ifm=1thenf$="put 87"
  113. 716 ifm=2thenf$="ford 87"
  114. 721 x=len(f$):poke828,x+3
  115. 722 fori=1tox:poke831+i,asc(mid$(f$,i,1)):next
  116. 723 poke829,asc("@")
  117. 724 poke830,asc("0")
  118. 725 poke831,asc(":")
  119. 726 sys57812f$,dv,0
  120. 727 poke780,0:poke781,o:poke782,128
  121. 728 sys65493
  122. 730 sys57812f1$,dv,0:poke780,0:poke781,0:poke782,8:sys65493
  123. 732 ifff=1then750
  124. 735 sys57812"xf 87",dv,0
  125. 740 poke780,0:poke781,o:poke782,56
  126. 745 sys65493:ff=1
  127. 750 poke53272,31:sys2048
  128. 760 poke53272,29:sys52499,6:gosub28:goto150
  129. 5000 gosub26
  130. 5005 print"[221][156]           [195]rossword [208]uzzles          [146][221]";
  131. 5010 println$;
  132. 5020 print"[155]    [213]se the cursor keys to maneuver
  133. 5025 [153]"list around the grid and press the keys
  134. 5030 print"[155] to enter your solutions.
  135. 5040 [153]"list   (NULL)he definitions are displayed at
  136. 5045 print"[155] the bottom of the screen and
  137. 5050 [153]"list represent the clues both across and
  138. 5055 print"[155] down for the square that the cursor
  139. 5060 [153]"list is on.  atns you move the cursor, the
  140. 5065 print"[155] clues will change to reflect your
  141. 5070 [153]"list position on the grid.
  142. 5080 print"[155]   [193]ll controls are listed on the
  143. 5085 [153]"list playing screen."
  144. 5110 [141]9800:[142]
  145. 6000 [141]26
  146. 6005 [153]"(NULL)clr              (NULL)o and ascro              wait(NULL)";
  147. 6010 [153]ln$;
  148. 6015 [153]"list    (NULL)he object of these puzzles is to
  149. 6020 print"[155] find a word that can be read in
  150. 6025 [153]"list both directions ((NULL)o and ascro).  (NULL)he
  151. 6030 print"[155] definition on the left is for the
  152. 6035 [153]"list left-to-right word and the clue
  153. 6040 print"[155] on the right is for the right-
  154. 6041 [153]" to-left word.  ascor example,
  155. 6042 print
  156. 6043 print"         idol   [199][207][196]   animal"
  157. 6045 print"[155]    [213]se the cursor keys to move
  158. 6050 [153]"list around the grid.  (NULL)ress space to
  159. 6055 print"[155] erase an entry.
  160. 6085 [141]9800:[142]
  161. 6090 :
  162. 8000 [141]26
  163. 8010 [153]"(NULL)clr          left$opscotch (NULL)uzzles           wait(NULL)";
  164. 8020 [153]ln$;
  165. 8030 [153]"list    (NULL)he object of these puzzles is to
  166. 8040 print"[155] fill in the blanks of the five
  167. 8050 [153]"list 10-letter words with the pairs of
  168. 8060 print"[155] letters on the left of the screen.
  169. 8070 [153]"list valach pair may be used only once.
  170. 8080 print"[155]    [213]se the cursor keys to move to an
  171. 8090 [153]"list empty square in the words and then
  172. 8100 print"[155] press the letter (or number) of the
  173. 8110 [153]"list letter pair that you wish to move
  174. 8120 print"[155] to that location.  [195]onversely, you
  175. 8130 [153]"list may move a letter pair back by
  176. 8140 print"[155] pressing the letter (number) of an
  177. 8150 [153]"list empty square.
  178. 8160 gosub9800:return
  179. 8190 :
  180. 9000 gosub26
  181. 9005 print"[221][156]             [204]ogic [208]roblem            [146][221]";
  182. 9010 println$;
  183. 9020 print"[155]    [201]nstructions for [195][207][193][211][212][197][210] are
  184. 9025 [153]"list included with the program.
  185. 9040 gosub9800:return
  186. 9500 gosub26
  187. 9505 print"[221][156]              [205]s. [195]rypto              [146][221]";
  188. 9510 println$;
  189. 9515 print"[155]    [205]s. [195]rypto, math teacher
  190. 9520 [153]"list extraordinaire, returns this month
  191. 9525 print"[155] with another puzzle for you to solve.
  192. 9530 [153]"list right$nstructions are included in the
  193. 9535 print"[155] program.
  194. 9540 [141]9800:[142]
  195. 9600 [151]214,15:[153]
  196. 9605 [153][163]4)"clrortantantantantantantantantantantantantantan^
  197. 9607 printtab(4)"[221]              [221]
  198. 9610 [153][163]4)"(NULL)  (NULL)oading...  (NULL)
  199. 9612 printtab(4)"[221]              [221]
  200. 9615 [153][163]4)"/tantantantantantantantantantantantantantanexp
  201. 9620 return
  202. 9625 :
  203. 9800 poke214,21:print:println$;
  204. 9805 print"[221][154]             [208]ress [210][197][212][213][210][206]             [146][221]";
  205. 9810 getk$:ifk$<>chr$(13)then9810
  206. 9815 return
  207. 9820 :
  208. 9900 fori=0to24:pokes+i,.:next:return
  209. 9910 pokes+24,15:pokes+5,9:pokes+6,0
  210. 9915 pokes+1,19:pokes,63:pokes+4,17
  211. 9920 fort=1to50:next:pokes+4,16:return
  212. 9930 pokes+24,15:pokes+5,9:pokes+6,0
  213. 9935 pokes+1,48:pokes,0:pokes+4,17
  214. 9940 fort=1to50:next:pokes+4,16:return
  215. 10000 open15,8,15,"s0:puzzle page 87":close15:save"0:puzzle page 87",8:end
  216. 11000 poke214,13:print
  217. 11005 printtab(13)"[150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  218. 11010 q2$="[221]                     [221]":printtab(13)q2$
  219. 11015 printtab(13)"[221] [193]re you sure? [y/n] [221]"
  220. 11020 printtab(13)q2$
  221. 11025 printtab(13)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  222. 11030 getk$:ifk$=""then11030
  223. 11035 ifk$<>"y"thensys52499,6:goto150
  224. 11037 print"[147]":poke53272,23
  225. 11040 goto40000
  226. 13000 sys52496,7
  227. 13005 c1$="[194]ourree"
  228. 13010 c2$="[202]. [211]. [194]ach"
  229. 13012 c3$="[212]ranscribed by [196]ave [205]arquis"
  230. 13015 poke214,13:print:printtab(9)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  231. 13020 printtab(9)"[221]      [194]ackground [205]usic     [221]"
  232. 13025 fori=1to3:printtab(9)"[221]                           [221]":next
  233. 13035 printtab(9)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  234. 13040 poke214,15:print:printtab(24-len(c1$)/2)""c1$
  235. 13045 poke214,16:print:printtab(24-len(c2$)/2)""c2$
  236. 13047 poke214,17:print:printtab(24-(len(c3$)/2))""c3$
  237. 13050 t=1
  238. 13055 getk$:ifk$<>""then13065
  239. 13060 t=t+1:ift<100then13055
  240. 13065 sys52499,6:gosub28:goto150
  241. 40000 fori=0to21:poke828+i,8+i:next
  242. 40010 ifdv<8ordv>29ordv=8then40030
  243. 40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  244. 40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  245. 40040 close2:open2,i,2:close2:ifstthen40060
  246. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  247. 40060 next:print"[147]":poke53272,23:poke186,8:end
  248. 40070 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  249. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  250. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  251.